home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / WRITELNX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  829 b   |  44 lines
  1. PROGRAM examples_of_write_statements;
  2.  
  3. VAR index  : BYTE;
  4.     count  : REAL;
  5.     what   : BOOLEAN;
  6.     letter : CHAR;
  7.     name   : STRING[10];
  8.  
  9. BEGIN
  10. WRITELN('Integer');
  11. index := 17;
  12. WRITELN(index,index);
  13. WRITELN(index:15,index:15);
  14.  
  15. WRITELN;
  16. WRITELN('Real');
  17. count := 27.5678;
  18. WRITELN(count,count);
  19. WRITELN(count:15,count:15);
  20. WRITELN(count:15:2,count:15:2);
  21. WRITELN(count:15:3,count:15:3);
  22. WRITELN(count:15:4,count:15:4);
  23.  
  24. WRITELN;
  25. WRITELN('Boolean');
  26. what := FALSE;
  27. WRITELN(what,what);
  28. WRITELN(what:15,what:15);
  29.  
  30. WRITELN('Char');
  31. letter := 'Z';
  32. WRITELN(letter,letter);
  33. WRITELN(letter:15,letter:15);
  34.  
  35. WRITELN('String');
  36. name := 'John Doe';
  37. WRITELN(name,name);
  38. WRITELN(name:15,name:15);
  39.  
  40. WRITELN;
  41. WRITELN('Text output','Text output');
  42. WRITELN('Text output':15,'Text output':15);
  43.  
  44. END.